home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl5.005.tar.gz / perl5.005.tar / perl5.005 / qnx / cpp < prev   
Text File  |  1998-07-19  |  573b  |  25 lines
  1. #! /bin/sh
  2. #__USAGE
  3. #%C    [-P] [-C] other options
  4. #    cpp is a wrapper for wcc to make it work like other cpp's
  5. #    -P omit #line directives from the output
  6. #    -C pass comments through to the output
  7. #
  8. #Submitted by Norton T. Allen (allen@huarp.harvard.edu)
  9.  
  10. typeset lines=l comments="" redir=""
  11. while :; do
  12.   case $1 in
  13.     -P) lines=""; shift; continue;;
  14.     -C) comments=c; shift; continue;;
  15.   esac
  16.   break
  17. done
  18. if [ ! -t 0 ]; then
  19.   cat >.$$.c
  20.   redir=.$$.c
  21. fi
  22. cc -c -Wc,-p$lines$comments -Wc,-pw=0 $* $redir |
  23.   awk 'NR>1||NF>0 {sub("^ ","");print}'
  24. [ -n "$redir" ] && rm -f $redir
  25.